home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / samples / list-handling / select-list.mta
Encoding:
Text File  |  1994-12-13  |  2.0 KB  |  56 lines
  1.  
  2. Malloc(90);
  3. @shortstart( ("test") ("bw") );
  4.  
  5. wdw(TEST 1 6 10 15 ("helpfile.inf") 1 StandardWDW);
  6.  
  7. o(TEST00  S .  0  0 36 1 Extra 1); bg(TEST00 . (" Select")); eg();
  8. o(TEST01  S .  0  1 36 1 Extra 1); bg(TEST01 . (" List:") ); eg();
  9.  
  10. o(TEST90  I I  5  3  4 1 Standard 1);
  11.  :TEST92  S .  1  3  4 1 Standard 1);
  12.  :TEST93  S .  1  4  4 1 Standard 1);
  13.  :TEST94  S .  1 13  4 1 Standard 1);
  14.   bg(TEST90 . 0);    eg();
  15.   bg(TEST92 . Home);   cn(raK("(int)OBJ:TEST90.V:=0;")); eg();
  16.   bg(TEST93 . (" Up"));cn(raK("(int)OBJ:TEST90.V-=6[0];")); eg();
  17.   bg(TEST94 . Down);   cn(raK("(int)OBJ:TEST90.V-=(-6);")); eg();
  18.  
  19. o(TEST9A N N  1  5  4 1 Secure 1);
  20.  :TEST9B N N  1  6  4 1 Secure 1);
  21.  :TEST9C N N  1  7  4 1 Secure 1);
  22.  :TEST9D N N  1  8  4 1 Secure 1);
  23.  :TEST9E N N  1  9  4 1 Secure 1);
  24.  :TEST9F N N  1 10  4 1 Secure 1);
  25.  :TEST9G N N  1 11  4 1 Secure 1);
  26.  :TEST9H N N  1 12  4 1 Secure 1);
  27.   bg(TEST9A . ("    ")); i( ao 2); pn( an (ptr)OBJ:TEST90.V);
  28.     cn(raK("(str)OBX:act.aln:=((str)OBJ:TEST9A.V);"));cn(aW TEST);
  29.     eg();
  30.   bg(TEST9B . ("    ")); i( ao 3); pn( an (ptr)OBJ:TEST90.V);
  31.     cn(raK("(str)OBX:act.aln:=((str)OBJ:TEST9B.V);"));cn(aW TEST);
  32.     eg();
  33.   bg(TEST9C . ("    ")); i( ao 4); pn( an (ptr)OBJ:TEST90.V);
  34.     cn(raK("(str)OBX:act.aln:=((str)OBJ:TEST9C.V);"));cn(aW TEST);
  35.     eg();
  36.   bg(TEST9D . ("    ")); i( ao 5); pn( an (ptr)OBJ:TEST90.V);
  37.     cn(raK("(str)OBX:act.aln:=((str)OBJ:TEST9D.V);"));cn(aW TEST);
  38.     eg();
  39.   bg(TEST9E . ("    ")); i( ao 6); pn( an (ptr)OBJ:TEST90.V);
  40.     cn(raK("(str)OBX:act.aln:=((str)OBJ:TEST9E.V);"));cn(aW TEST);
  41.     eg();
  42.   bg(TEST9F . ("    ")); i( ao 7); pn( an (ptr)OBJ:TEST90.V);
  43.     cn(raK("(str)OBX:act.aln:=((str)OBJ:TEST9F.V);"));cn(aW TEST);
  44.     eg();
  45.   bg(TEST9G . ("    ")); i( ao 8); pn( an (ptr)OBJ:TEST90.V);
  46.     cn(raK("(str)OBX:act.aln:=((str)OBJ:TEST9G.V);"));cn(aW TEST);
  47.     eg();
  48.   bg(TEST9H . ("    ")); i( ao 9); pn( an (ptr)OBJ:TEST90.V);
  49.     cn(raK("(str)OBX:act.aln:=((str)OBJ:TEST9H.V);"));cn(aW TEST);
  50.     eg();
  51.  
  52. ng( KEY ("TEST:27.0")); c( K ("stop();") ); eg(); /* ESC:Zurueck */
  53.  
  54. End();
  55.  
  56.